(lookup-class-name "foodsf23234")

(jclass "org.wsml.reasoner.impl.WSMO4JManager")

;;; expect: java.file.FileNotFoundException
(load-ontology "foo")

(load-ontology "example/humanOntology.wsml")

#|
(defun wsml->rdf (&key (file
			"eTel_CRM_and_Fulfillment_BPMO_20070803.wsml"))
  (let ((ontology (wsml2reasoner::load-ontology file))
	(new 'wsmlrdfserializer (new 'java.util.hashmap))
	(map (new 'TreeMap)))
    (#"put" map 
|#  

    

(jobject-class (#"getFactory" 'DefaultWSMLReasonerFactory))

(defun get-reasoner-constant (&optional (reasoner "IRIS"))
  (let* ((factory
	  (#"forName" 'java.lang.Class
		      "org.wsml.reasoner.api.WSMLReasonerFactory" 
		      nil
		      (#"getClassLoader" (jobject-class (#"getFactory"
							 'DefaultWSMLReasonerFactory)))))
	 (classes (#"getClasses" factory))
	 (enum (aref classes 0)) ; XXX BuiltInReasoner is the only
				 ; subclass for now, one should lookup
				 ; by name in the future
	 (constants (#"getEnumConstants" enum)))
    (find reasoner constants  :key #"toString" :test #'equal)))

	 

  








